'************************************************************************************
' Copyright © 2003-2005 Kathleen Dollard
'
' This software is provided 'as-is', without any express or implied warranty. In no 
' event will the author be held liable for any damages arising from the use of this
' software.
' 
' You may use this software for any purpose, including commercial applications, 
' and you may redistribute this software as part of application delivery: however, 
' this copyright notice may not be removed and you may not otherwise redistribute 
' this software directly other than providing a link to wwww.gendotnet.com. 
'
' You may alter this software to better server your needs (I'd like to hear about your 
' changes in order to make the software better). If you alter the softwre, you must  
' clearly mark it as altered and must not be misrepresented as the original software.
' nor wholly your original work.
'*************************************************************************************
Option Strict On
Option Explicit On 

Imports System

Namespace KADGen.CodeGenerationSupport
   ' To be replaced with Generics in Whidbey 

   Public Class StatusOutputCollection
      Inherits Collections.CollectionBase
      Public Sub New(ByVal nodeList As Xml.XmlNodeList)
         For Each node As Xml.XmlNode In nodeList
            If TypeOf node Is IStatusOutput Then
               Me.List.Add(node)
            End If
         Next
      End Sub
      Default Public ReadOnly Property Item(ByVal index As Int32) As IStatusOutput
         Get
            Return CType(Me.List(index), IStatusOutput)
         End Get
      End Property
   End Class

   'Public Class StatusOutputEntryCollection
   '   Inherits Collections.CollectionBase
   '   Public Sub New(ByVal nodeList As Xml.XmlNodeList)
   '      For Each node As Xml.XmlNode In nodeList
   '         If TypeOf node Is IStatusInfoEntry Then
   '            Me.List.Add(node)
   '         End If
   '      Next
   '   End Sub
   '   Default Public ReadOnly Property Item(ByVal index As Int32) As IStatusInfoEntry
   '      Get
   '         Return CType(Me.List(index), IStatusInfoEntry)
   '      End Get
   '   End Property
   'End Class

End Namespace